HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/UTIL/Alpha 6.5.sit/Tcl/UserCode/Text Filters/Text Munging/shuffle

Text File | 1994-02-11 | 230b | 7 lines

#!/usr/bin/perl
srand;                      # Randomize the rand function.
@lines = <>;                # Read in all the lines.
while (@lines) {            # While more than 0 elements.
    print splice(@lines, rand @lines, 1);
}